CD_CLASS Contracts

Automatic generation produced by ISE Eiffel
Classes Clusters Cluster hierarchy Chart Relations Text Contracts
indexing
    description: "objects of type CD_CLASS should represent CDs on which we sort given directories"
    author: "Marko Ristin"
    date: "$Date$"
    revision: "$Revision$"

class interface
    CD_CLASS

create 
    make

feature -- Access

    directory_collection: DIRECTORY_COLLECTION
            -- Directories set on CD

    free_space: REAL
            -- Free space on CD, in megabytes

    medium_size: REAL
            -- Medium size (total size of CD), in megabytes
    
feature -- Initialization

    make (a_medium_size: REAL)
            -- create a cd and set its medium size
        require
            a_medium_size_positive: a_medium_size > 0
        ensure
            medium_size_set: medium_size = a_medium_size
    
feature -- Edit

    add_directory (a_directory: DIRECTORY_CLASS)
            -- add directory to the cd
        require
            sufficient_free_space: a_directory.size <= free_space
        ensure
            free_space_correctly_calculated: free_space = old free_space - a_directory.size
    
feature -- Output

    out: STRING
            -- result is name of the cd; in this stadium of development only a constant string "CD"
        ensure then
            result_not_void: Result /= Void
    
invariant

    free_space_smaller_or_equal_to_medium: free_space <= medium_size

end -- class CD_CLASSClasses Clusters Cluster hierarchy Chart Relations Text Contracts
-- Generated by ISE Eiffel --
For more details: www.eiffel.com